perm filename PLOTIT.F4[MSS,LCS]1 blob sn#092556 filedate 1974-03-19 generic text, type T, neo UTF8
00010	C  THIS PLOTS ON CALCOMP (OR TO XGP) STUFF FROM MDSK.DMP(DO PRNTX]
00100		DIMENSION N(3,341),M(1023)
00200		EQUIVALENCE (M,N)
00300		CALL PLOTS(K)
00400	1	READ(1)K,(M(J),J=1,K)
00500		DO 3 JJ=1,K,3
00600	3	CALL PLOT(M(JJ),M(JJ+1),M(JJ+2))
00700		IF(K.EQ.1023)GO TO 1
00800		TYPE 2
00900	2	FORMAT(' DON''T FORGET "FOR01.DAT" ON DSK.')
01000		END